100 REM * DEMO-Horizontales Scrolling
110 REM * Peter Finzel 1985
120 REM *
130 GOSUB 1000:REM  * Maschinenpgm.
200 A=USR(1536):REM * Scrolling ein
300 REM LANDSCHAFT ENTWERFEN
310 BASIS=28672
320 FOR I=0 TO 255
330 A=INT(RND(0)*8)+1
340 FOR S=0 TO A:POKE BASIS+S*256+I,0:NEXT S
350 FOR S=A+1 TO 8:POKE BASIS+S*256+I,3:NEXT S
360 POKE BASIS+9*256+I,67
390 NEXT I
400 GOTO 400
1000 REM * Maschinenprogramm...
1010 S=0:RESTORE 1100
1020 FOR A=1536 TO 1726:READ D:POKE A,D:S=S+D:NEXT A
1030 IF S<>15960 THEN ? "DATEN-FEHLER!":STOP
1090 RETURN
1100 DATA 104,76,42,6,112,112,112,87,0,112,87,0,113,87,0,114,87,0
1110 DATA 115,87,0,116,87,0,117,87,0,118,87,0,119,87,0,120,87,0,121
1120 DATA 65,4,6,0,0,169,0,141,41,6,32,175,6,169,4,141,48,2,169,6
1130 DATA 141,49,2,169,0,141,4,212,141,40,6,160,78,162,6,169,7,32
1140 DATA 92,228,96,216,173,120,2,41,8,208,6,32,143,6,76,102,6,173
1150 DATA 120,2,41,4,208,3,32,111,6,173,40,6,141,4,212,76,98,228,173
1160 DATA 40,6,208,7,173,41,6,201,233,176,19,206,40,6,173,40,6,16
1170 DATA 11,169,7,141,40,6,238,41,6,32,175,6,96,173,40,6,208,5,173
1180 DATA 41,6,240,21,238,40,6,173,40,6,201,8,144,11,169,0,141,40
1190 DATA 6,206,41,6,32,175,6,96,162,0,173,41,6,157,8,6,232,232,232
1200 DATA 224,30,144,246,96